procedure RemoveFolder(src : string);
var
     Files : integer;
     FSrc  : string;
     ok     : boolean;
     Search : TSearchRec;
 begin
      Files := FindFirst(src + '\*.*', faAnyFile, Search);

      while Files = 0 do
       begin
            if Search.Attr <> faDirectory then
             begin
                  FSrc := src + '\' + Search.Name;
                  ok :=DeleteFile(PChar(FSrc));
                  if not ok then ShowMessage(' Delete error: '+
                                                        Search.Name);
             end
            else
             begin
                  if (Search.Name <> '.') and
                                                    (Search.Name <> '..') then
                   begin
                        RemoveFolder(src+'\'+Search.Name);

                   end;
             end;
            Files := FindNext(Search);
       end;

      FindClose(Search);
         
      {$I-}
      RmDir(Src);   
      {$I+}
      if IOResult<>0 then
                            ShowMessage('Can not remove ' +   Src)
 end;

